home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Dungeon Ma20618652001.psc / OnTop.bas < prev    next >
Encoding:
BASIC Source File  |  2001-06-04  |  1.3 KB  |  35 lines
  1. Attribute VB_Name = "modONTop"
  2. Option Explicit
  3. Private Type POINTAPI
  4.         X As Long
  5.         Y As Long
  6. End Type
  7. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  8. Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  9. Private MyMousePos As POINTAPI 'for getting the mouse positioning
  10.  
  11. 'This stuff is for keeping windows 'always on top'
  12. Public Const conHwndTopmost = -1
  13. Public Const conHwndNoTopmost = -2
  14. Public Const conSwpNoActivate = &H10
  15. Public Const conSwpShowWindow = &H40
  16. Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  17.  
  18. Sub InitWindow(tForm As Form)
  19. Dim tX As Long
  20. Dim tY As Long
  21. tX = Screen.TwipsPerPixelX
  22. tY = Screen.TwipsPerPixelY
  23. SetWindowPos tForm.hWnd, conHwndTopmost, tForm.Left / tX, tForm.Top / tY, tForm.Width / tX, tForm.Height / tY, conSwpNoActivate Or conSwpShowWindow
  24.  
  25. End Sub
  26.  
  27. Sub UnInitWindow(tForm As Form)
  28. Dim tX As Long
  29. Dim tY As Long
  30. tX = Screen.TwipsPerPixelX
  31. tY = Screen.TwipsPerPixelY
  32. SetWindowPos tForm.hWnd, conHwndNoTopmost, tForm.Left / tX, tForm.Top / tY, tForm.Width / tX, tForm.Height / tY, conSwpNoActivate Or conSwpShowWindow
  33.  
  34. End Sub
  35.